AppleScript - The Beta Release/AppleScript - The Beta Release.iso/Example Scripts/Example Scripts (as text)/Quill Scripts/Transpose Words

Text File | 1992-12-02 | 528 b | 18 lines | [TEXT/ToyS]

tell window 1 of application "Quill"
    copy (word after selection) as styled text to x
    if true then
        if word before selection exists then
            copy " " & x to after word before selection
        else
            -- here we are transposing the first word.
            copy x & " " to beginning
        end if
        -- should be "from (end of word of the selection)
        --                 to (end of the word after the selection)"
        delete text from ¬
            (end of word before word after selection) to ¬
            (end of word after selection)
    end if
    on error
    end error
end tell